﻿'''''''''' CAIXA LOTERIAS '''''''''''''''
''''DATA: 10/06/2011'''''''''''''''''''''
''''CRIADO POR: JUCELIO ANCELMO ALENCAR''
''''EMAIL:DEV-JUCELIO@LIVE.COM'''''''''''
''''SITE:WWW.CODEPLEX.COM/LOTERIAS'''''''

''''POR FAVOR RESPEITE OS DIREITOS 
''''AUTORAIS DO DESENVOLVEDOR, QUE DE BOA 
''''FÉ TEVE INICIATIVA DE CRIAR TAL
''''INTEGRAÇÃO SEM FINS LUCRATIVOS ALGUM.
''''ESTE É UM PROJETO OPEN SOURCE DE 
''''CÓDIGO ABERTO HOSPEDADO NO CODEPLEX





Namespace Caixa.Loterias


    Public Class MegaSena
        Protected UrlApiMegaSena As String = "http://www1.caixa.gov.br/loterias/loterias/megasena/megasena_pesquisa_new.asp?app=1307895723033"



        Private _N1 As String
        Public Property N1() As String
            Get
                Return _N1
            End Get
            Set(ByVal value As String)
                _N1 = value
            End Set
        End Property

        Private _N2 As String
        Public Property N2() As String
            Get
                Return _N2
            End Get
            Set(ByVal value As String)
                _N2 = value
            End Set
        End Property
        Private _N3 As String
        Public Property N3() As String
            Get
                Return _N3
            End Get
            Set(ByVal value As String)
                _N3 = value
            End Set
        End Property
        Private _N4 As String
        Public Property N4() As String
            Get
                Return _N4
            End Get
            Set(ByVal value As String)
                _N4 = value
            End Set
        End Property
        Private _N5 As String
        Public Property N5() As String
            Get
                Return _N5
            End Get
            Set(ByVal value As String)
                _N5 = value
            End Set
        End Property


        Private _N6 As String
        Public Property N6() As String
            Get
                Return _N6
            End Get
            Set(ByVal value As String)
                _N6 = value
            End Set
        End Property


        Private _DataSorteio As String
        Public Property DataSorteio() As String
            Get
                Return _DataSorteio
            End Get
            Set(ByVal value As String)
                _DataSorteio = value
            End Set
        End Property

        Private _CidadeSorteio As String
        Public Property CidadeSorteio() As String
            Get
                Return _CidadeSorteio
            End Get
            Set(ByVal value As String)
                _CidadeSorteio = value
            End Set
        End Property

        Private _UFSorteio As String
        Public Property UFSorteio() As String
            Get
                Return _UFSorteio
            End Get
            Set(ByVal value As String)
                _UFSorteio = value
            End Set
        End Property

        Private _NumeroConcurso As String
        Public Property NumeroConcurso() As String
            Get
                Return _NumeroConcurso
            End Get
            Set(ByVal value As String)
                _NumeroConcurso = value
            End Set
        End Property

        Private _ValorAcumulado As String
        Public Property ValorAcumulado() As String
            Get
                Return _ValorAcumulado
            End Get
            Set(ByVal value As String)
                _ValorAcumulado = value
            End Set
        End Property

        Private _ValorPremioSena As String
        Public Property ValorPremioSena() As String
            Get
                Return _ValorPremioSena
            End Get
            Set(ByVal value As String)
                _ValorPremioSena = value
            End Set
        End Property

        Private _ValorPremioQuina As String
        Public Property ValorPremioQuina() As String
            Get
                Return _ValorPremioQuina
            End Get
            Set(ByVal value As String)
                _ValorPremioQuina = value
            End Set
        End Property

        Private _ValorPremioQuadra As String
        Public Property ValorPremioQuadra() As String
            Get
                Return _ValorPremioQuadra
            End Get
            Set(ByVal value As String)
                _ValorPremioQuadra = value
            End Set
        End Property

        Private _ContidadeGanhadoresSena As String
        Public Property ContidadeGanhadoresSena() As String
            Get
                Return _ContidadeGanhadoresSena
            End Get
            Set(ByVal value As String)
                _ContidadeGanhadoresSena = value
            End Set
        End Property

        Private _ContidadeGanhadoresQuina As String
        Public Property ContidadeGanhadoresQuina() As String
            Get
                Return _ContidadeGanhadoresQuina
            End Get
            Set(ByVal value As String)
                _ContidadeGanhadoresQuina = value
            End Set
        End Property

        Private _ContidadeGanhadoresQuadra As String
        Public Property ContidadeGanhadoresQuadra() As String
            Get
                Return _ContidadeGanhadoresQuadra
            End Get
            Set(ByVal value As String)
                _ContidadeGanhadoresQuadra = value
            End Set
        End Property

        Private _ValorAcumuladoProxCuncurso As String
        Public Property ValorAcumuladoProxCuncurso() As String
            Get
                Return _ValorAcumuladoProxCuncurso
            End Get
            Set(ByVal value As String)
                _ValorAcumuladoProxCuncurso = value
            End Set
        End Property

        Private _NumeroSoteio As String
        Public Property NumeroSoteio() As String
            Get
                Return _NumeroSoteio
            End Get
            Set(ByVal value As String)
                _NumeroSoteio = value
            End Set
        End Property

        Private _EstimativaProxPremio As String
        Public Property EstimativaProxPremio() As String
            Get
                Return _EstimativaProxPremio
            End Get
            Set(ByVal value As String)
                _EstimativaProxPremio = value
            End Set
        End Property

        Private _DataProxPremio As String
        Public Property DataProxPremio() As String
            Get
                Return _DataProxPremio
            End Get
            Set(ByVal value As String)
                _DataProxPremio = value
            End Set
        End Property

        Private _ValorAcumuladoSorteiroVirada As String
        Public Property ValorAcumuladoSorteiroVirada() As String
            Get
                Return _ValorAcumuladoSorteiroVirada
            End Get
            Set(ByVal value As String)
                _ValorAcumuladoSorteiroVirada = value
            End Set
        End Property

        Private _ValorArrecadacaoTotal As String
        Public Property ValorArrecadacaoTotal() As String
            Get
                Return _ValorArrecadacaoTotal
            End Get
            Set(ByVal value As String)
                _ValorArrecadacaoTotal = value
            End Set
        End Property





        Public Sub MegaSena()
            Dim Wc As New System.Net.WebClient
            Dim Resultado As String = Wc.DownloadString(New System.Uri(UrlApiMegaSena)).Replace _
            ("<span class=""num_sorteio""><ul><li>", "#").Replace _
            ("</li><li>", ",").Replace _
            ("</li></ul></span>", "#")
            For index As Integer = 1280 To 2000
                Resultado = Resultado.Replace("<a class=""btn_conc_ant_megasena"" href=""javascript:carrega_concurso(" + index.ToString + ");"" tabindex=""27"" title=""Ver concurso anterior"">Ver concurso anterior</a>", "#")
            Next



            Dim TratResultado As String() = Resultado.Split("#")
            NumeroConcurso = TratResultado(0).Split("|")(0).Trim()
            ValorAcumulado = TratResultado(0).Split("|")(1).Trim()
            NumeroSoteio = TratResultado(1).Trim

            N1 = TratResultado(1).Split(",")(0)
            N2 = TratResultado(1).Split(",")(1)
            N3 = TratResultado(1).Split(",")(2)
            N4 = TratResultado(1).Split(",")(3)
            N5 = TratResultado(1).Split(",")(4)
            N6 = TratResultado(1).Split(",")(5)

            ContidadeGanhadoresSena = TratResultado(2).Split("|")(1)
            ValorPremioSena = TratResultado(2).Split("|")(2)
            ContidadeGanhadoresQuina = TratResultado(2).Split("|")(3)
            ValorPremioQuina = TratResultado(2).Split("|")(4)
            ContidadeGanhadoresQuadra = TratResultado(2).Split("|")(5)
            ValorPremioQuadra = TratResultado(2).Split("|")(6)
            DataSorteio = TratResultado(3).Split("|")(2)
            CidadeSorteio = TratResultado(3).Split("|")(3)
            UFSorteio = TratResultado(3).Split("|")(4)
            ValorAcumuladoProxCuncurso = TratResultado(3).Split("|")(9)
            EstimativaProxPremio = TratResultado(5).Split("|")(1)
            DataProxPremio = TratResultado(5).Split("|")(2)
            ValorAcumuladoSorteiroVirada = TratResultado(5).Split("|")(3)
            ValorArrecadacaoTotal = TratResultado(5).Split("|")(4)



        End Sub

    End Class
End Namespace
